home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / STATE.h < prev    next >
Text File  |  1992-07-31  |  3KB  |  60 lines
  1.       COMMON/STATE/NLINES,NKEEPL,NSTAMM,NFSTAT,ISNAME,NSNAME,IRNAME,
  2.      1   NRNAME,IGNAME,NGNAME,INDCNT,INDFAC,KNTDO,KNTIF,IBLPAD,NRORST,  
  3.      2   NSTANU,ICBPRT,NCBNAM,NEQNAM,NCBVAR,
  4.      +   NCBGRP(MAXGRP),KCBGRP(MAXGRP),LCBNAM(MAXGRP),LCBVAR(MXNAME),   
  5.      +   NEQGRP(MAXGRP),KEQGRP(MAXGRP), 
  6.      +   LRORST(MXORST),NAMTYP(MXNAME),NSSTRT(700),NSEND(700),  
  7.      3   KSTANU(MAXNUM),KSTARE(MAXNUM),NLTYPE(MXSIMA),ICLASS(MXSIMA,2), 
  8.      4   IMODIF(MXSIMA),NFLINE(MXSIMA),NLLINE(MXSIMA)   
  9. *IF DEF,NEVER   
  10. *-----------------------------------------------------------------------
  11. *      /STATE/    contains the information concerning the actual
  12. *                 status of the program 
  13. *      NLINES     no. of lines in line image buffer SIMA
  14. *      NKEEPL     buffered line number in READEC, or 0  
  15. *      NSTAMM     total no. of statements in current routine
  16. *      NFSTAT     no. of FORTRAN statements in current routine  
  17. *      ISNAME     pointer to start-1 of stmt. names in SNAMES   
  18. *      NSNAME     no. of names found in statement   
  19. *      IRNAME     pointer to start-1 of names/routine in SNAMES 
  20. *      NRNAME     no. of names/routine  
  21. *      IGNAME     pointer to start-1 of global names in SNAMES  
  22. *      NGNAME     no. of global names   
  23. *      INDCNT     current indentation level (reset at routine start)
  24. *      INDFAC     no. of ch./level to indent
  25. *      KNTDO      current DO loop level (for indentation)   
  26. *      KNTIF      current IF...THEN level (for indentation) 
  27. *      IBLPAD     in QUOTES option, string blank-padded to multiples
  28. *                 of IBLPAD (default = 1)   
  29. *      NRORST     no. of currently selected OR-sets in LRORST   
  30. *      NSTANU     no. of statement numbers in KSTANU, KSTARE
  31. *      ICBPRT     no. of c.b. variables printed at ACTION(24)   
  32. *      NCBNAM     no. of c.b. names in NCBGRP, KCBGRP, SCBNAM   
  33. *      NEQNAM     no. of equiv. groups in NEQGRP, KEQGRP
  34. *      NCBVAR     no. of names in SEQNAM
  35. *      NCBGRP     no. of common block variables per c.b.
  36. *      KCBGRP     pos.-1 of start of c.b. name list in  SCBNAM  
  37. *      LCBNAM     # of c.b. variables used in current routine   
  38. *      LCBVAR     counts number of times a variable is referenced   
  39. *      NEQGRP     no. of names in equiv. group  
  40. *      KEQGRP     pos.-1 of start of equiv. group in SCBNAM 
  41. *      LRORST     list of OR-sets valid for current routine 
  42. *      NAMTYP     variable type, parallel to SNAMES 
  43. *      NSSTRT     start of name I in SSTA   
  44. *      NSEND      end of name I in SSTA 
  45. *      KSTANU     statement numbers in routine (sorted) 
  46. *      KSTARE     new statement numbers, corresponding to KSTANU
  47. *      NLTYPE     type of line I (0 comment, 1 start, 2 cont. of stmt. )
  48. *      ICLASS(I,1)  type of statement I 
  49. *                   0 = comment 
  50. *                   999 = no comment, not classified
  51. *                   class = ICURCL(1), common /CURSTA/  
  52. *      ICLASS(I,2)  type of second part of statement I if logical IF
  53. *      IMODIF     10*n2 + n1
  54. *                 n1 = 1 : statement has been filtered  
  55. *                 n2 = 1 : statement has been modified  
  56. *      NFLINE     start of statement I in SIMA  
  57. *      NLLINE     end of statement I in SIMA
  58. *-----------------------------------------------------------------------
  59. *EI 
  60.